From b214a335190654923269eb4a0491368cf101b7fa Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Mon, 16 Jan 2006 23:14:49 +0000 Subject: [PATCH] (rmail-display-labels): Use identity instead of lambda. --- lisp/mail/rmail.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c6f6dbe4479..824af50b68e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1857,20 +1857,16 @@ otherwise, show it in full." ;; appear in the mode line. (defun rmail-display-labels () (let (keyword-list result) - ;; Update the keyword list for the current message. (if (> rmail-current-message 0) (setq keyword-list (rmail-desc-get-keywords rmail-current-message))) - ;; Generate the result string. - (setq result (mapconcat '(lambda (arg) arg) keyword-list " ")) - + (setq result (mapconcat 'identity keyword-list " ")) ;; Update the mode line to display the keywords, the current ;; message index and the total number of messages. (setq mode-line-process (format " %d/%d %s" rmail-current-message rmail-total-messages result)) - ;; If rmail-enable-mime is non-nil, we may have to update ;; `mode-line-process' of rmail-view-buffer too. (if (and rmail-enable-mime -- 2.30.2